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sh dh te te 


& if} 
tt 


s¢ St tt St 
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3 
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~~ 


eRAMBe 
eRAME « 
eROMBe 
eROMEe 


ue 
“ye 


7) YJ 
Se 98 
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H OL D 


NAM 


INCLUD 


EQU 
EQU 
EQU 
EQU 


SECT 
SECT 


INTERN 
INTERN 
INTERN 
INTERN 
INTERN 
INTERN 
INTERN 
INTERN 


EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 
EXTERN 


PR INT 


PooR DC (Ee S&S SOR 


4 
st 


MODULE 


FOR 


ISI PRINTERS COMPATIBLE WITK IBM 


3274/76 PROTCCOL 


HOLDPRINT 


ate te 2 Me ate ale ats ale ats aKo ate alle whe ole ate ale ale whe alle ale ate ale whe alle ate ale ale ate ale ate ale whe why ale whe alle als ule ate ole ale ato alle ale ale 
“4? yr Mat ge GP Mgr My® Myr HM gh gh Pg® Sgt Sy® Mgr Hy® Hg® Sgr Sys Sgr Hyd Hg ® Sgr Myr gr -HQ® Pgh Mg™ Mh Mee Mg yh Mgr MQ™ Gd My> Sgr Hgr Mgr gr Hyd Hg Her Sgr Hy O_% OE 


DK320L14092JRANGELACT 


$2000 
$27FF 
$C 000 
$FFFF 


target/target variable RAM 


target program base address 
target program Jimit 


HLDRAMesREL eRANGE= ee RAMBe teRAME® variable storage 
HLDROMeREL seRANGE=eROMB et eROME® program and constant area 


HOLD 

TMODEL 
HLDFLG 
CANFLG 
CANREQ 
RPTFLG 
RPTREO 
HTOFLG 


BUSY 
BSYFLG 
CNFL1 
DEVHP 
DEVFW 
DEVMPL 
DEVMPP 
MAXMPL 
MAXMPP 
ROMMPL 
ROMMPP 


FLTREQ) 


FLTFLG 
HLDREQ 


test for mode is LUI] (subroutine) 
"hold active" flag 

"cancel™ fiag 

"oOuffer reprint” flag 


"intervention required" (timeout) flag 


(print) job active" flag 


"“ohysical printer™ busy 
configuration flag -- 736q 

device current horizontal position (16 bit) 
device current forms width (15 bit) 
device forms length (MPL) 

device forms width MPP, # columns 
device limit for forms tength 
device limit for forms width 
default forms length 

default forms width 

device fault detect 

device fauit timed-out 

"hold request" flag 


HOLDPRINT 
HOLDPRINT* SRC 


DOO0* 
O00o1* 
OcO1’® 
0002° 
0G02° 
0003" 
0004? 
0005* 
0006* 
0007* 
0008" 
0003* 
OOOA* 
OOCD* 


0010 


=9005 
=0004 
=0006 
=0007 
=0008 
=0009 
=0020 
=FRFFF 
=0000 
=9006 
=27190 
=0003 
=0008 


=0000 


=0001 
=0001 


=0001 
=O0001 
=C001 
=0001 
=0001 
=0001 
=O001 
=O0001 
=9003 


 =0003 


=9001 


53 


54 
55 
56 
57 
528 
59 
60 
61 
62 
63 
54 
55 
66 
657 
68 
69 
70 
71 
12 
73 
T4 
75 
16 
17 
78 
19 
80 
81 
B82 
83 
84 
85 
86 
87 
83 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
1006 
101 
102 
103 
104 
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HLDCOD 
RCYCQD 
CASCOD 
DSPCCOD 
LPICCD 
TSTCCD 
DISP1 
FALSE. 
TICK 
TICKM 
PRTCORD 
IRBIT 


HLDFLG 
CANREQ 
CANFLG 
RPTREQ 
RPTFLG 
HLDLMP 
RDYLMP 
HTOFLG 


FIRST 


SWSAV 
SSFLG 
STATE 
TEMP 

SwWCON 
LMPRC 
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hold time ftimit in device module 
"momentary switch activated" flag 
beginning of switch vector 

code for activated momentary switch 
current fine status 

current switch status 

current order 

current line specified mode 


EXTERN HLOTIM 
EXTERN SWFLAG 
EXTERN SWVEC 

EXTERN SWBYT3 
EXTERN PSTATS 
EXTERN PSWSTA 
EXTERN PCRDER 
EXTERN PMODE 


3 1 "in chain™ f 1 
EXTERN CHNFLG LUi in chain lag 
we whe fs wie te whe aly ste Sy ole alle ole ally ole ate whe Me a8e whe whe ate ale ale alle aly abe We ols te wh Se we le whe we ate Be abe Be whe whe we ule We «fe whe ale ate ale ate aly whe alo whe alle she aby ale ale ate ole ade whe ale wile al whe ate why 
~ a gs gh ym Mgt ge Meh orgs Sg™ eye Mgt age Hy? Hye Heh Oye ME* oye Og* oR A gh Mgt Hgt Pg Og We gt et y* Me Suh Sgt Me™ yh A a* He “EP Sat AG Mq@ Pgh Mah SM gh Mah Mg Hah Hye Met gh Sgt Mgt Ma My Mg® Mgr Ke Myr ME® M_™ “g™ “— 


EQUATES 

EQU 5 code for HCLE tlamo 

EQU 4 code for READY lamp 

EQU & code for DUAL (case) lamp 

EQU ri code for DOUBLE (spacing) tamp 
EQU B code for 8LPI lamp 

FQU 9 code for TEST lamp 

EQU $20 code for units (1st of 3) 7-segment display 
EQU -1 boolean TRUE 

E QU -) poolean FALSE 

EQU 6 clock uses 6ms ticks 

EQU 10000 ticks for 1 minute 

EQU 3 code for print order 

EQU E intervention required 


whe abe abe wte al ate ate afe ake ale alle ale ale af abe ale ole ale alle ale alls aly ale ale ake aly alle ale ale ale wills aly abe alle abe ate alle alle alte ale whe ale ale 2fo ake ale whe wo ule ale fe ate ale ate 


RSECT HLDR AM 


RMB 1 "hold active" flag 

RMB 1 "cancel" flag 

RMB 1 "buffer reprint” flag 

RMB 1 "hold" tamp control! cell 

RMB 1 "ready" tamp control cell 

RMB 1 "hold timed out" flag 

RMB i HOLD timeout control word 

RMB 1 save cell for switches 

RMB 1 second mode flag 

RMB 1 memory for alternate functions 

RMB 3 temporary for incremental switches 
RMB 3 temporary for switch status control 
RMB 1 left margin procedure NOT allowed flag 


HOLDPRINT 
HOLDPRINTs*SRC 
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=0001 
=O0001 
=B000 


217 


10034014 
105 x 
106 * 
107 fe ee Se eae ot 
108 

109 = 
171 *" 
172 7" 
173 
174 a 
175 ok 
176 * 
1?7 * 
178 a 
179 * 
180 

181 

182 VIA 
183 

184 T1ICeL 
185 

186 7 
187 CCF 
188 

189 

190 a 
191 * 
192 * 
193 7 
194 x 
195 72 
196 * 

197 os 
198 % 
199 % 
200 * 
201 e IGXAR 
202 oMSK 
203 

204 

205 

206 eMSK 
207 

208 = 
209 oMSK 
210 

211 

212 eMSK 
245 

214 

215 

216 
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: ~ . ee 
14250355 Page 1-2 
le whe ale ats ale ate alo ats ale abe ale ake ale ale abe ule ule ty ote ads whe aly abe ate whe ade nlo ate ale alle whe ale slo aly alle alle ale aly ale whe alte ate whe ate alo ale ale ale aly aly alle aly alle abe ale oly whe ate alo ale alle ale ale why 
2. 
DK3:(140—92]CALLeMAT 


THE FOLOWING ARE MACRO DEFINITIONS FOR USE BY THE SUPERVISOR 


IFNDEF 
IFNDEF 


EQU 
ENDIF 
EQU 
ENDIF 


MACRO 
TST 
ENDM 


MACRO 
Set 
IFNB 
IRP 
IF ION 
SET 
ENOIF 
IF ION 
SET 
ENDIF 
IFION 
SET 
ENDIF 
ENOR 
ENDIF 
ENDM 


CLEAR CLOCK FLAG 


Use is? 


CCF 


T1ICeL 
VIA 
$8000 


VIA+4 


T1CeL 


INTERRUPT OFF 
INTERRUPT ON 
Use is: 
IOF 
ICN 


Z ARGS 

0 

<¥ARGSD 

SARG s<SARGS> 
LAR GD» <B> 
oMSKI+350 


<#ARGD 2 <I> 
eoMSKI+$10 


C¥ARG>» <F> 
oMSK!I4+$40 


(6522 VIA) 


define timer 1 ccunters low order byte 


clears the clock flag 


BOTH 
BOTH 


<FeleB> for FIRQs IRQs 
<FeIlse3> for FIRQs IRQs 
B is equivalent to Fol 


initial value of mask variable 
do no rore if no arguments 


check for a "8B" 

FeI set 

check for an "I" 
I set 

check for an "FN" 
rF set 
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HOLDPRINT*SRC 

=0000 
O000* 34 70 
9002" 7D 9000' 
0005*% 26 3A 
O0OO07* Cé& FF 
0099* FY 9000° 
O0OC* FY 0006" 
OCOF® YF 9009° 
0012" 7F OCcOoB® 
0015" 86 0014* 
OO18* BY OO0d07* 
001B" 86 95 
O001D" BD 0018* 
OO020° FY 90003' 
0023" 53 
0024" 86 04 
0026" BD 0018 
0029" Fi 0004' 
002C* 86 00 


218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
295 
297 
298 
299 
300 
391 
302 
303 
304 
305 
306 
307 
306 
309 
310 
311 
312 
313 
314 
315 
316 
317+ 
322A 
326A 
346 
347 
348 
349+ 
358A 
318 
379 
330+ 
3B5A 
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IOF MACRO ARGS 
NLIST 
elOXAR <*ARGSD 
LIST 
ORCC #eMSK 
ENDM 
ION MACRO =ARGS 
NLIST 
elTOXAR <*ARGS>D 
LIST 
ANCCC #INSMSK 
ENDM 
INCLUD DK3: [14022] CALL. 


"CALL* MACRO DEFINED 


36 BR Me 
$ 
34 
+4 
¢ 
4 
tt 
Ag, 
AY 
¢ 
&& 
e 
é 
% 
v 
sh 
aT 


RSECT HLDROM 

HOLD PSHS XeV¥o9U 
TST HLDFLG 
BNE 14% 

as new hold request -- en 
LD3 #TRUE « 
ST2 HLDFLS 
STB FIRST 
CLR STATE 
CLR SSFLG 
LDA PSWSTA 
STA SWSAV 
LDA #HLDCOD 
CALL LEDSET 
EXTERN LEDSET 
JSR LEDSET 
STB HLDULMP 
COMB 
LDA #RCEYCOD 
CALL LEDSET 
JSR LEDSET 
STB RDYLMP 
LDA #FALSE« 
CALL ALARM 
EXTERN ALARM 
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form required constant 


turn *ARGS interructs off. 


form requirec constant 


turn *ARGS interupts on 


MAC 


save caller's registers 
check for first entry under hold_request 


ter HOLD states timersse lamopss etce 


hidfigqg indicates hold state 

first phase of timeout 

initialize alternate function control 
save switch status byte 


code for HCLD ftamp 


(GO TO LEDSET) 
hold tamp starts out "on" 


code for MREADY" lamp 


(GO TO LEDSET) 
ready lamo starts out “of f" 


turn off alarm 
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HOLDPRINTeSRC 
QO2E* BD 0019% 3B9A JSR ALARM (GO TC ALARM) 
409+ CALL STIMER »s<HOLDTGsHLDTIM> 
414A EXTERN STIMER 
0031° BD OOLA* 41BA JSR STIMER (GO TC STIMER) 
0034* 03D4'* 4298 FDB HOLDTOA 
0036" O00F* 4348 FDB HLDOTIM 
443+ CALL STIMER «<FLASHsFLSHTM> 
0038" BD OO1LA* 452A JSR STIMER (GO TC STIMER) 
003B* oO3AC* 46338 FDB FLASH 
0O3D" o0o9g9Cc* 468B FDB FLSHTM 
OO3F* 20 16 477 BRA 3$ 
478 ** 
479 2 force device status update 
480 * 
481+ 16 CALL  DEVSTA 
4B6A EXTERN CEVSTA 
0041' BD OO1LB* 490A JSR DEVSTA (GO TO DEVSTA) 
510 * 
511 oe check for momentary switch activated (pushed) 
512 
0044" B6 0010 513 LOA SWFLAG 
0047° 27 OE 514 BEQ 3% Switch flag not sets exit 
515 76 
516 as switch presseds dispatch to appropriate handler 
517 x 
0049°* F6 0012 518 LOB SWBYT3 get switch code 
004C* 86 00 519 LDA #FALSE. clear switch flaa 
O004E" 8B7 0010% 520 STA SWFLAG 
o0o51° 58 S21 ASLB | double switch code for table index 
0052° B8E OCO5A* 522 LDX #ETRAVEC-2 table has no zero element 
0055" AD 95 523 JSR [BeX]} go to switch handler 
0057" 35 70 524 35 PULS Xo¥oVU restore caller's registers 
0059% 39 525 44 RTS (NOTE: this RTS is also for ‘'nuli’*s below) 
526 *% 
527 = Switch trap table 
528 x 
CO5A* 06059! 529 FOB 44 0 tnull®* switch 
00O5C* OOA5* 530 TRAVEC FDB INDEX 1 index switch 
DOSE* ooDd5* 531 FDB REPR 2 recrint 
0060" oocs* 532 FDB PA 3 PA l 
0062" oOocs* 533 FDB PA 4 PA 2 
0064" O2EF* 534 FDB PRHLD 5 hotd print 
0066" OOF5* 535 FDB CANCEL 6 cancel 
0068" 0111' 536 FDB TESTSW qT test 
OO6A* 00B5* oe ae FOB FRMED 8 form feed 
006C* 9O301'° 538 FDB PRENB 9 enable print (exit hold) 
OO6E*® 0298° 539 FDB LPISW A lines/inch 
DO7T7O 0281! 540 FDB SPCING B line spacing 
0072" 0o267° 541 FDB SWCASE C case 
0074*' =0O238' 542 FDB IN1900 C 100*%s increment 
0076" O25E* 543 FDB iNiO E 10%s " 
Co78*® 0263° 544 F 1*s " 


FDB IN1 
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HOLDPRINT 
HOLDPRINT*SRC 

OO7TA" O14F* 
OO7TC* 0233° 
OO7E* 0181" 
OO80* 0195°% 
9082° d0201' 
0084" O1CF* 
0086" O0A4* 
008s? O0A4* 
COBA® O0A4* 
OO8C*® OQO0A4* 
OO8E" COA4* 
0090" OO0A4* 
O092" O0A4® 
0094" OQOOA4'* 
0096" O0A4* 
OO98* QO285° 
DO9A® O2D8* 
OO9C*® 0053 
CO9E® BD OO1LB* 
OOAL® BA 0002* 
OOA4&* 39 


545 
546 
547 
548 
549 
550 
551 
552 
553 
554 
595 
556 
557 
558 
559 
560 
561 
562 * 
563 


564 FLSHTM 


565 * 

566+ STACHK 
575A 

595 

596 NULL 
597 


598 ** 
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FDS 
FD65 
FDB 
FDB 
FDB 
FOB 
FDB. 
FDe 
FD3 
FOB 
FDB 
FDB 
FDB 
FDB 
FDB 
FOB 
FOB 


FDB 


CALL 
JSR 
DRA 
RTS 


14250255 


SETUP 
RESET 
CONFIG 
DIAGN 
STMPP 
STMPL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
NULL 
PRIMSW 
SECSW 


S500/TICK 
DEVSTA 


DEVSTA 
BSYFLG 
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10 
11 


setup print 

reset 

configure (NVM save) 
diagnose ???? 

mop set 

form length set 

not definec code 


primary function switch 
secondary function switch 


e> sec a 6 ms tntervals 


check for device error 
{GO TO DEVSTA) 


2 @ 6 


or busy 


HOLDPRINT 
HOLDPRINTeSRC 
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QOA5* 
OOA8* 


7D 00098 
1026 0209 


OOAC' 
OOAF* 


BD OO9E* 
26 93 


ocBl’ 
00B4° 


BD OO1C 
39 


COB5°* 
00838* 


7D ON09° 
1026 O1F9 


OO0BC* 
OOBF® 


BD O09E* 
26 03 


0oc1" 
00C4!" 


BD O01D% 
39 


O0C5* 
00C B* 


7D 9009% 
1926 O1LES 


QOOCC® 
OOCF® 


BD O3E7° 
2f 03 


0O0D1° 
DOD4* 


BD OO1LE* 
39 
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600 
691 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 


612 — 


613 
614 
615 
616 
617+ 
622A 
626A 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657+ 
662A 
666A 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697+ 
TO2A 
TO6A 
126 
T27 
128 
129 


<6 
oe 


‘4 
st 


a 4 
se de ot 


$ 


a4, 
we 


A] Ae YS 
° 3 Se 
4 


ate Ze ake aty ate whe ule 
Mut yr Me™ Mgr Me™ OQ He® 

af, 

at ed 

at, 

_y~ 

ate 

“a 

at, 

ys 
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wile ate ale ate whe ate who ade ale ale ate alle abe ale wie we afe whe ale abe alle aly alle we ale alle aly ale alle ale ale whe ale ale ale a! whe ate ahs ale abe ale alle alte ale ale ate ale ule alle aby ale ate ale ale ate ale alle ale alls alls ale ale we ale abe ale wile 
ale we ats ate ate «Be whe He ally ale ate ufo Te ale aly alo whe abe abs ale afi ule ate ale ate whe ~! le ate whe ale abs Be ake ale ale ale ale whe ate alle ale alle als ale ale abe nde ally ale alle ate nSe ale we a8o ate alls ade als ale abe aly alo ats abe ade rSe ale 
Ce Sad bad a ad jad >> Let Yd — + — et ad ~~ “ye oa tal et ed ~ a; ~~ ad a “ “e od bat bal bee to al ead iat bal og ~- “> ba ) *, oy 7 at ad “ ~~ * * ”, = “>* ~~ Or Oy Bad hd _* “~~ + % “sy _* “~~ * ge - ot ted ra —~ “* wy! » “oe ~~ a bed Ae eo Sad oo *, yr ofr ~~ ~ 

ate why 2, alle we Ss 2, ate ) whe Sy w , s, we ale 
Se she he ete Se ste he ate ie ts Se he She he ae ote hz she oe oe se she ae he Soe oe ae ate ie ok Se oe aie ek a oe ae he eo Se oe ae Be ie Oe eK Oe oo Se ok oe eo SK SK Oe KE EE KS OK 


TST 
LBNE 


STATE 
PRIMSW 
JSR check for legal 
BNE 
CALL 
EXTERN 
JSR 
RTS 


STACHK 
1$ 
DEVLF 
DEVLF 
DEVLF 


perform a tine feed 


(GC TC DEYLF) 


oe Se oe St Se ae os ee oe ee ste ote ste se se ale fe ate ate ae we ote ak steaks ee Soe ie Sie ee Se eee ee ee aes oe oe Be Se Se se ok on ek oe Re Soe SA Sk Se oe nee Bee oe ae Set oe Oe er oe Ok Oe oe oh ee oe 
bo 
a FORM FEED 
FRMFO TST STATE 
LBNE PRIMSW 
me 
JSR STACHK check for legal 
BNE 14 
CALL DEVFF perform a form feed 
EXTERN DEVFF 
3 JSR DEVFEF (GO TC DEVFF) 
1% RTS 
sis ae sik oie ois afk fk ote ale ahs oie afc aoc oi ses ahs Bi oie Sik hk ais sis aoe oie fe as aos aye ais ah 2s ois ik Bis Sic a ate aie he Boe fe Bie as 2k oye Bs Oe a ak 3 SIs Bs ah aie ac Sik oc ok ac oie ais Shs ahs Shc Bs ie ie OK Sk Yk SIS SEK SIs TK Sk Sik oie 2 oe 
* PA switch 1 or 2 
PA TST STATE cneck for legal 
LBNE PRIMSW 
JSR TMODE] must be LU1 mode for PA switches 
BEQ 1% branch if MODE not LU 
CALL PASWIT SSA module Knows how to handle PA switches 
EXTERN PASWIT | 
JSR PASWIT (GO TO PASWIT) 
1$ RTS 
BES IK SE SS Ss SEK Bhs Me sie sis ahs Bhs Sie sik oh oie ok Bee Sie as Sik hs OE TH SEs Ss OES Six ais Sys Sk SE Sis She Sik SK ys Ak Ok TS SS SIS Sys SPs Bs OS Bis IK Tk SYS Ds SS Sik Sik Sos ys Sh ik Dik Ek OK Si Sis Sik ai is ese aa SES SK SES TK TK TS TS as 3S 


HOLDPRINT CR6&809/11 version 
HOLDPRINTeSRC 

ooD5* 7D 900098 

ooDs® 1026 01D9 

oodc* BD OO9E* 

OODF* 26 13 

OOE1* B6 0001 

OOE4* 27 O€E 

QOOE6* B6 0015% 


QNOE9* 84 OF 
OOEB*® 81 93 
OOED*® 26 95 
OOEF* 86 FF 


OOF1* 87 0002" 
OOF4* 39 
O0O0F5* 7D 9009" 
OOF8* 1026 0189 
OOFC*® 8D OO9E* 
DOFF® 26 OF 
0191" @8D O3E7* 
0104* 27 OA 
0106" B6 OO1LT* 
0109" 27 05 
0108" 86 FF 
O10D* 8Yf 9091* 
0110* 39 
O1l11" 7D 90909* 
O114" 1026 019D 
0118" BD DO9E® 
0118" 26 31 
O11D* 7D G003* 
0120" 27 18 
Q122* 7D OO10' 
0125" 26 16 
S000" 


Di27* 86 
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730 * reprint switch 

731 > 

732 REPR TST STATE check for tlegal 

733 LBNE PRIMSW 

134 7s 

735 JSR STAC HK check for lflegal 

736 BNE 1$ | 

737 LDA BUSY must be busy to reprint 

738 BEQ 1$ 

739 LDA PORDER must be printing to reprint 
740 ANDA #7 | 

T41 CMPA #PRTORD 

142 BNE 1% 

7143 LDA #TRUE«s set REPRINT flag 

144 STA RPTFLG 

745 1% RTS 

146 2 

147 Bye 2S Bye OK Bie safe Se 2s Be aI le fe 2 Be 2s fe ahs of aos afk ae Be 2 a Sie ae as ofc ae ahs fe 2s af aoe 2s ic ie aie aie as aye ie 20s aes EE Se She af SES aie IS She ONE SYS OI IS SE Is SIE BIE SIS AS OIE SS SES SI HEE SS SIS SIS IE OS IS OE OE 
T48& 

149 * cancel switch 

7150 * 

751 CANCEL TST STATE 

152 LBNE PRIMSW 

753 os 

7154 JSR STAC HK check for legal 

755 BNE 14 | 
156 JSR TMODEL must be in LUE mode to cancel 
T57 BEQ 1$ 

758 LOA CHNFLG must also be "in chain" 

759 BEQ 1$ 

760 oi 

T61 LDA HTRUE® mode=LUl,», set CANCEL request 
T62 STA CANFLG 

763 1$ RTS 

164 * | 

765 Se She Shee hae hah She sh Se hc Se ee ac ate he ate ae Se See ete ee at i ae Sie he ae Se ar See ae ate a he ae he ate Shee te ate ote ale ae he che aca ee She She ee Se she ahs Se Sie oe ee ee Se 
766 = * 

T67 2 test switch 

168 7 | 

769 TESTSW TST STATE 

T70 | LBNE PRIMSW 

771 * 

772 JSR STAT HK check for tegal 

773 BNE 1$ 

174 as | 

775 ** check for forms width precedure (736q) 

776 * | 

777 TST CNFLI check configuration flag l 
7178 BEQ 10% 
779 TST LMPRO check for too late 

780 BNE 10% 

781 LDA SWVEC+2 first HOLD PRINTs check permission switch 


HOLDPRINT CR6809/11 version 

HOLDPRINT.*SRC | 
012A" 85 20 
012c* 27 OF 
012E*" 86 oODO" 
0131" 34 02 
0133" 8D OO1F* 
0136" 35 02 
0138" B7 o000" 
013B" 20 11 
013D" 86 09 
O13F* C6 FF 
0141" 8D 0018+ 
0144" BD 0020% 
0147" 86 09 
0149" C6 00 
0148" BD 0018* 
O14E" 39 
O14F* 7D 0009° 
0152" 1025 O15F 
0156" 3D 009E° 
0159" 26 13 
0158" FC 90004% 
O15E" 1083 0005% 
0162" 2D 03 
0164" BD 90021% 
0167" 108E O17F* 

BD 0022* 


9168" 


10234014 


182 
183 | 
734 
185 
186 
187 
788 
789+ 
T94A 
TIBA 
818 
819 
820 
B21 * 
B22 * 
B23 = 
824 
825 
826+ 
B35A 
855+ 
B6O0A 
BO4A 
884 
885 
886+ 
BISA 
915 ss 
$16 
917 

918 Sho 3S SR TK OS He EK 
919 > 

920 *s 

921 ** 

922 
923 
924 * 
925 
926 
927 
928 
929 
930 
931 
ie 
933+. 
S35A 
942A 
962 
963+ 
966A 
9T2A 


Ly) Ly) +e 
“Ct 698) 6 6S¢@ 


Z $4 84 
se 3 


2% 


6-May-§83 


BITA 
BEQ 


legal to do forms width 


LDA 
PSHS 
CALL 
EXTERN 
JSR 
PULS 
STA 
BRA 


ordinary 


LDA 
LDB 
CALL 
JSR 
CALL 
EXTERN 
JSR 
LDA 
LDB 
CALL 
JSR 


RTS 


we ake ale 


whe ate ake Oe hod 
Mgt ME> Sy® Age Hge Hg™ “eg y* 


SETUP switch pressed 


TST 
LBNE 


JSR 
BNE 


if ‘carr 


LOD 
CMPD 
BLT 
CALL 
EXTERN 
JSR 
LDY 
CALL 
EXTERN 
JSR 


142:50:55 


#Z00100000 
10$ 


SWVEC+4 
A 
SETDFW 
S ETDFW 
SETDFW 
A 
SWVEC+4 


14 
tests 


#TSTCOD 
#TRUEe 
LEDSET 
LEDSET 
TEST 
TEST 
TEST 
#TSTCOD 
HFALSE«s 
LEDSET 
LEDSET 


whe abe atte w¥e ats nfo abe a8o ale 
Mgt Ge gh MG ge Oye Oye 7 OS 


Je aly ato ats 


Je nto aly ale ale 
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—--switch 10 


procedure -~- do it 
Save current MPL 
"device™ does the actio 


(GO TC SETCFW) 
restore current MPL 


exit 





turn on TEST LED 
{GO TO LEDSET) 


(GO TC TEST) 
turn off TEST LEC 


(GO TO LEDSET) 


ate ate whe abe ate ale afte als ole ale abs alle ale ats als ally ale ale alle rte ale ate ate ate ~Se ate abe ate alle ate alle ats ale ale alle ale ale ale abe ate aYo ate ats le 


print a test character for forms alignment 


STATE check for legal 

PRIMSW 

STACHK 

1$ 

aige’ is not beyond MPP» print a test character 
DEVHP current position 

DEVFW 

24 | 

DEVCR return ‘carriace® before print 
DEVCR 

DEVCR (GO TO DEVCR) 

#SUBUF send the setup print buffer 
DEVPUT | 

DEVPUT | 

DEVP UT (GO To CEVPUT) 


CRS5809/11 version 


HOLDPRINT 
HOLDPRINT* SRC 
O1SE*® 39 
O16F* 00 600 00 DO OO 
0175" oo oc 
9177" 00 00 00 09 aN 
017D" oc oa 
O17F* ol 
0130" AT 
0181' 7D opo9® 
0184" 1025 012D 
0188" 8D 9023 
0188" BD 0024*% 
O18E" BD 0025% 
0191" BD 0026* 
0194". 39 
0195* Bé6 0009" 
0198" 26 12 
O19A* 86 03 
019C* B7 o009t 
O19F* F6& 0000" 
O1A2" 54 
O1A3" 54 
O1lA4* 54 
OC1A5* 54 
O1A6* 4F 
O1A7" BD 0370" 
O1AA* 20 22 


00 


O00 


device coded buffer for "setup" 


10434214 6-May-83 
992 * 

993 1$ RTS 

994 7 

995 * 

996 *% 

997 FCS 

998 FCB 

999 SUBUF FCB 

1000 FCB 
1001 

1002 Be 2 OK Oe ae 2 a ie he ie ae Ee Oo 
1003 ** 

1004 * CONFIG s 
1005 7 

1006 CONFIG TST 

1007 LBNE 
1008 * 

1009+ CALL 
1O014A EXTERN 
1018BA JSR 
1038+ CALL 
1043A EXTERN 
LO4STA JSR 
1067+ CALL 
LOT72A EXTERN 
LO76A JSR 
1096+ CALL 
L1O1A EXTERN 
1105A JSR 
1125 * 

1126 1$ RTS 

1127 * 

1128 DHS OES TS SIS SEK SEs ahs Bis ok Bos Sie SIS SIS SS Ok 
1129 x 
1130 * DIAGNOSE 
1131 ** 
1132 DIAGN LDA 

1133 BNE 
1134 = 

1135 LDA 
11236 STA 

1137 LDB 

11368 LSRB 
1139 LSRB 
1140 LSRB 
1141 LSRB 
1142 CLRA 
1143 JSR 
1144 BRA 


1145 


14250355 


0909090 909090%0 


0202020909091220 


a whe ally ate ale whe ale aty ate 
ge VA gh gh Sys MEP Mgt Kgh gh gh Sgt Me™ eg" Ma* My" Ha* 


witch pressed - 


STATE 
PRIMSW 


NVMRD 
NYMRD 
NVMRD 
COPSW 
COPSW 
COPSW 
NVMWR 
NVMWR 
NVMWR 
NVMREL 
NVMREL 
NVMREL 


switch pressed 


STATE 
20% 


#3 
STATE 
SWVEC+1 


SETDIS 


1$ 


Page 2-3 


print --~ 1 char at current position 
pad 16 bytes before count 
required ty DEVPUT 


1 character 


p8c "H" 
whe alle ate als ale ols aby ale We alle ale whe ats ale ale alle Be ale ote aly ale oly ate wie als ate als ole ale abe alo we wile ole ale alle ate abs ae ale whe whe we 
mgr gr Om Ot AR OG wg al Dod Sad bol ogy eg OG Hgh ME® MQ™ “1 “yt “~~ ge oe, oe baled eas hd Cae ad re ~~ at a *, Oe alle ‘ale pad ” ae ”, -~ Or yr re oe ge ~~ ay og" ‘a 


_ loac configuration to NVM 


check for legal 


get copy of current NVM 


(GO TC NVMRO) 
copy current settings to array 


(GO TC COPSW) 
write it back out 


(GO TC NVMWR) 
release copy memory 


(GG TC NVMREL) 


Fe uty whe we ae ate ale ale ate ats ale alle whe als ate abs ale whe ate als ale ade aly ale alle ato ale ate abs alle ate ale ale wle ale ale alle alls abs Wo ale ube ate ade ale ote alle 
gh yh Gh Pgh Gh gh AGN 4h Pge Hye Gh OGe BGR Hye Qn Fe On “~~ gh Og Ge Met Ee My ne gh gS gh Gh Gh AGS Ogh Ge Bye ge GR AED GS Gh ON Ym Oe ae yh 


select test 


if mode set for selection 


state 


current value 


up display of values etce 


exit 


set 
and 


CR6809/11 version 10234214 


HOLOPRINT 

HOLDPRINT.SRC 
O1AC' 81 03 
OLAE* 26 1B 
0180" Fé oOO0O" 
0183" C4 OF 
0185" F7 9000" 
0188* 8D 0396° 
0188" 1983 0009 
O1BF* 2E OA 
O1C1* 58 
01C2* 58 
01C3" 58 
01C4" 58 
01C5* FA 0000" 
01C8" F7 o000" 
O1CB" 7E 0235° 
O1CEt 39 
O1CF* B86 0009° 
01D2" 26 OE 
0104" 86 02 
01D6" B87 009% 
01p9" F6é 9090" 
O1DC* 4F | 
01ND" BD 0370! 
O1£0" 20 1E 
O1E2" 81 02 
OLE4* 26 17 
O1E6* F6 OODA* 
O1E9" F7 0000" 
O1EC' BD 0396" 
OlEF* 4D 
OLFO" 26 08 | 
O1F2"* F1 0008* 
OlF5* 22 03 
O1F7* F7 9000" 


1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
Lig7 
1178 
1179 
1180 
1131 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 


1193 


1194 
1195 
1196 
1197 


20% 


st 


a 


i) 


se st est St 
md 


o% 


ue aa 
s¢ tt 


STMPL 


ale 
oH yr ge oye 


6-May-83 


non-zero statee 


CMPA 
BNE 


LDB 
ANDB 
STB 


JSR 
CMPD 
BGT 


LSLB 
LSLB 
LSLB 
LSLB 
ORB 
ST3 
JMP 


RTS 


ate ae uhe ate ale ate als 
ares 


ate we ate We 
#g™ ~~ gr Hy a Hye ae ll 2) ed 


SET FL 


LDA 
BNE 


LDA 
STA 
LOB 
CLRA 
JSR 
BRA 


non-zero statee 


CMPA 
BNE 


LOB 
STB 


JSR 
TSTA 
BNE 
CMPB 
BHI 


STB 


hy 


14250255 


#3 
25 


SWVEC+1 
#S$OF 
SWVEC+1 


GETNUM 
#9 
2% 


SWVEC+1 
SWVEC+1 
PRIMSW 


Switch pressed 


STATE 
20% 


#2 
STATE 
SWVEC+4 


SETDIS 
1$ 


#2 
3% 


ROMMPL 
SWVEC+4 


GETNUM 
2% 


MAXMPL 
2% 


SWVEC+4 


ate ade 
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were we setting test? 


3 is state number for test set 


set default value 


convert entered number to binary 
check for greater than allowed 
if illegal values go to primary 


shift value 


merge with other bits 


revert to primary mode 


Fe ale afe abe ute Bs ate wl abs alo ale ate ate ate 
Be gh Qh gh Gh Ge ogy OG Ogh Gyr Ogre O5N 


-- set form ftength (MPL) 
check for function legal 

set state 

get current value 

extend 

set up display of valuee eatce 
and exit 


were we setting MPL (Form Length)? 


2 is state number for MPL set 
set default value 


convert entered number to binary 
check for greater than allowed 
cannot have high order bits 
compare with MAX 

if illegal values go to primary 


store new value 


HOLDPRINT. 
HOLDPRINTeSRC 


OlFA*® BD O0027% 
OlFD* 7E O2B5'" 


0200" 39 


0201" 86 0009° 
0204" 26 OE 


0206* 86 O1 
0208" BY OO009* 
O29B*" F& ONO000" 
D20E°* 4F 

O2Z20F* BD 9370° 
O212* 20 LE 


0214* 81 901 
0216" 26 17 


9218" F6 000B% 
O021B* FY 9000" 


OZ1E* 8D 0396° 
O221"° 4D 

0222" 26 08 
0224* Fl 0009% 
0227" 22 03 


0229* FY 9000" 


O22C* BD OO1LF* 


O22F* 7E O2B5* 


0232" 39 


0233" 7D on09? 
0236" 10926 OO7B 


023A" 39 


cd 
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1198 
1199+ 
1204A 
1208A 
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261+ 
12704 
1290 
1291 
1292 
1293 
1294 
1295 
1296 
1297 
1298 
1299 
1300 
1301 
1302 


6-May-83 14:50:5 


2% CALL SETDFL 
EXTERN SETDFL 
JSR SETDFL 
3$ JMP PRIMSW 
1$ RTS 


* SET MPP switch p 
STMPP LDA STATE 
BNE 204 
LDA #1 
STA STATE 
LDB SWVEC+5 
CLRA 
JSR SETDIS 
BRA 1$ 


se St 


non-zero statee 


$9 
ae 


20% CMPA #1 
BNE 3% 
LDB ROMMPP 
STB SWVEC45 
JSR GETNUM 
TSTA 
BNE 2$ 
CMPB MAXMPP 
BHI 2$ 
STB SWVEC45 
24 CALL SETDFEW 
JSR SETDFEW 
$ JMP PRIMSW 
1$ RTS 
x RESET -- 222? 
RESET TST STATE 
LBNE PRIMSW. 


1$ RTS 
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update device 


(GO TO SETCFL) 
revert to primary mode 


Bie ate hc ake oe ahs aie ots of ake ok afk afc ote ate afc af ate ak fe ake ate afc afk otk afk nhc ote ot ote af te oe te ie ake oh ate ake ate oe ode ok ofe otk ofc oie ake ok ote ok ok ok ot 
ressed -- set maximum line length 
check for function legal 
set state 
get current value 
set up display of values etce 
and exit 
were we setting MPP? 
1 4s state number for MPP set 
set default value 
convert entered number to binary 
check returned value -- no high bits allowed 
compare with MAX value 
if +llegal values go to primary 
store new value 
update device 
(SO TC SETDFW) 
revert to primary mode 
She Se ate ie he Si aie hs ae ae he Sie Sie a she Sis St aie che ate te te ae Se he eke Se Sie te SS te Siete Shes Ste le Sie mic ots ae ate ee a oe ee 
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HOLDPRINT 

HOLDPRINTeSRC 
0238" C6 02 
023D* 66 0009! 
0240" 27 19 
0242" 81 04 
0244" 2C 15 
0246" BF OOOA* 
0249" A& B5 
024B" 4C 
024C* 1C FE 
O024E* 19 
O24F* 84 OF 
0251" AT 85 
0253" 1F 89 
0255" 88 14 
0257" 8D O018* 
025A" 39 
O25B* TE 0285! 
O25E* C6 Ol 
0260" TE 023D° 
0263" SF 
0264" TE 023D° 
0267" 7D 0009" 
026A" 1026 0047 

-F& 0000" 


O26E* 


1303 
1304 
1305 
1306 
1307 
1308 
1309 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325+ 
1334A 
1354 
1355 
1356 
Loot. 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 


6—-May 


-83 
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ote he fe ah ote She ate he ae Be te a ate she ake ae te ah a ae he afk ate ah ae ote ae ate ate ak oe ae ae ake ake he ate he ae ae ke 2 ae ah as afc ee ae ai ate a aft ae oe ote aie ote oe otk atk ote ate oe te ote ie ate a a aca a ak oe oe ok ob oe 
* HUNDREDS switch pressed -- increment hundreds value 
ale 
IN100 LDB #2 relative address of hundreds temporary 
DIGIT LDA STATE see if incrementing is even legal 
BEQ 1% STATE must be non-zero but not > max allowed 
CMPA #4 
BGE 1$ 
mc 
L DX #TEMP 
LDA Ba X get current value 
INCA 
ANELCC HIUN1 clear carry for adjust 
DAA 
ANDA #$F keep digit part only 
STA BX store new value 
EXG AvB Swap registers to match LEDSET requirements 
ADDOA #20 comoute address of digit to load 
CALL LEDSET send new value to display 
JSR LEDSET (GO TC LEDSET) 
RTS 
= 
aS incrementing not tlegal 
1% JMP PRIMSW 
aly 
Bee SH Spe SPS RAE Spe BS Sos Sys Pat See Sys BOS Spe Se ee Se hs ake she ae ae a ae ee Sik She aoe ae she he hc Se ahs te ae he Se oe Se ste hee ale ate te ae te ole ae ate ale he ale se she alte aly he ae hie she he ae sale gle Beale SU oe gfe ahha ae Ae gis She ae 
* TENS switch pressed -- increment tens value 
IN1O i DB #1 relative address of tens temporary 
JMP DIGIT process 
sh ite at ae i ee aah Ste a as ete te ie SA ae ee i ee ae ee ce shee tee oe She he Sate Shee he Se eae Se te oe he hee eae ae See Re ae ee ee 
* UNITs switch pressed -- increment units value 
IN1 CLRB relative address of units temporary 
JMP DIGIT process 
Se Rn ae ee ee ah On ge ee Oe OR Oe ae ee te ste ste ote she ake te oe oe te Se ee Shoe ee ac ae oe ae oe oe eae Se oe ee oe ee ee Se Se Sk ee Ss Se ee Sos oe ee ere oe oe eee oe ae oe oe ene oe 
x 
as CASE switch pressed -- toggle duafl/monc mode 
SWCASE TST STATE check for legal 
LBNE PRIMSW . 
LDB SWVEC#]1 get current 


HOLDPRINT 
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HOLDPRINT*SRC 
O271* CB 04 
0273" FY 0000" 
O276" C4 04 
0278" 86 06 
O27A* BD 9018* 
O27D* BD 0028% 
0280" 39 
0281" 7D 9009° 
0284" 1026 002D 
O288* Fé 9000" 
O28B* C8 O02 
O28D" FY 9000" 
ON29C* C4 02 
0292" 86 OF 
0294" BD 0018- 
O297* BD 0027+ 
O29A* 39 
0298" 7D o009° 
O29E* 1026 0013 
O2A2* F6 9000" 
O2Z2A5* C8 91 
O2A7* Fr 0000" 
O2Z2AA* C4 Ol 
O2AC* 86 08 
O2AC* BD 0018% 
O2B1* BD O0027% 
0284" 39 


1382 
1383 
1384 
1385 
1386+ 
1395A 
1415+ 
1420A 
1424A 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458+ 
L467A 
1487+ 
1496A 
1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 
1525 
1526 
1527 
1528 
1529 
1530+ 
1539A 
1559+ 
1568A 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
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EORB #4 toggle 

ST8 SWVEC+1 

ANDB #4 detect bit for LED 
LDA #CASCOD address OUAL LED 
CALL LEDSET 

JSR LEDSET (GO TO LEDSET) 
CALL SETCAS force device to update case flag 
EXTERN SETCAS 

JSR SETCAS (GO TO SETCAS) 

RTS 


SPACING switch pressed -~- toggle single/double mode 


PCING TST STATE 
LBNE PRIMSW 
LDB SWVEC+1 get current 
EORB #2 toggle 
STB SWVEC+1 store new 
ANDB #2 detect bit for LED 
LDA #DSPCOD address DOUBLE LED 
CALL LEDSET 
JSR LEDSET (GO TO LEDSET) 
CALL SETOFL force device to update form size 
JSR SETDFEL (GO TC SETDFL) 
RTS 
= "LPI" switch pressed -- toggle 6/8 LPI mode 
LPISW tS STATE 
LBNE PRIMSW 
LOB SWVEC+1 get current. 
EQRB #1 toggle 
STB SWVEC+1 store new 
ANDB #1 detect bit for LED 
LDA #LPICOD address LPI LED 
CALL LEDSET 
JSR LEDSET (GO TO LEDSET) 
CALL SETDFL force device to update form size 
JSR SETDFL (GO TO SETCOFL) 
RTS 
* | 
7 “orimary function" switch pressed 


* | or other switch defaults to PRIMSW because of illegal action 


HOLDPRINT 
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HOLDPRINTe SRC 
0285" 86 00 
02B7" BD 0029% 
O2BA" B87 0008" 
02BD" 7F 9009! 
o2cC0* Cé FF 
02C2" 86 05 
02C4* 8D 0018% 
o2C7* FT 00038 
O2CA*" 86 20 
O2CC' BD 0018% 
O2CF* AC 
02D0" BD 0018% 
C2D3" 4C 
0204" 8D 0013% 
c2D7" 39 
0208" 86 FF 
O2DA" BD 0029% 
02DD" 87 90008! 
Q2EC* C6 OA 
O2E2" 86 20 
O2E4* BD 0018% 
O2E7" C3 0065 
O2EA* 81 22 
O2EC* 2F F6 
O2EE* 39 
O2EF* 7D 90098 
O2F2* 1026 FFBF 
O2F6" 86 00 
O2F8* 8D 0019% 


1595 
1596+ 
1601A 
16054 
1625 
1626 
1627 
1628 
1629+ 
1638A 
1658 
1659 
1660+ 
L669A 
1689 
1690+ 
1699A 
1719 
1720+ 
L729A 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756+ 
1765A 
1785 
1786 
1787 
1788 
1789+ 
1798A 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 


1832+ | 


1841A 
1861 
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PRIMSW LDA HFALSE. set switches to "1st" mode 
CALL SWMODE 
EXTERN SWMODE 
JSR SWMODE (GC TC SWMODE) 
STA SSFLG do not flash HOLD light 
CLR STATE clear 2nd function state 
LOB #TRUEe make sure HOLD {fight is on 
LDA #HLDCOD 
CALL LEDSET 
JSR LEDSET (GO TO LEDSET) 
ST8 HLDLMP 
LDA #DISP1 blank digit display 
CALL LEDSET 
JSR LEDSET (GO TCO LEDSET) 
INCA | next digit 
CALL LEDSET 
JSR LEDSET (GO TO LEDSET) 
INCA next digit 
CALL LEDSET 
JSR LEDSET (GO TO LEDSET) 
RTS | 
x "secondary function” switch pressed 
SECSW LDA #TRUE»s set switches to "2nd" mode 
CALL SWMODE 
JSR SWMODE (GO TG SWMODE) 
STA SSFLG internal switch set -- flash HOLD Jlight 
LOB HEA load display with indicator 
LDA #DISP1 | 
1$ CALL LEDSET 
JSR LEDS ET (GO TO LEDSET) 
ADDD #101 next digits different character 
CMPA #DISP1+2 check for done 
BLE 1% 
RTS 
2 HOLD PRINT switch pressed -- clear alarm 
PRHLD TST STATE 
LBNE PRIMSW 
LDA HFALSEe 
CALL ALARM 
JSR 


we 


ALARM (GO TC ALARM) 


HOLDPRINT 

HOLDPRINTs SRC 
O2FB" 7D 0003% 
O2FE* 26 Ol 
0300' 39 
0291" 7D 9009! 
0304" 1026 FFAD 
0308" 8D ODSE® 
0308" 26 60 
030D" 38D 002A% 
0310" 0O3D4! 
0312" BD OO2A* 
0315" O3AC* 
0317" C6 09 
0319" 34 Q1 
0318" 1A 10 
031D" F7 Q00Ex 
0320" FT ov000" 
0323" 35 O1 
0325" F7 oODCDs 
9328" 86 905 
032A" BD 0018% 
932D" C6 FF | 
O32F* 86 04 
0331" BD 0018% 
0334" £7 0010! 
0337' 66 0013% 
O33A" 84 08 
033C" 27 OF 
0335" 86 O1 
0340" B8E 036E' 
0343" 3F 
0344" 5D 
0345" 26 FT 
03247" 86 00 
0349" B7 90005! 
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1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 
1871 
1872 
1873 
1874 
1875+ 
L880A 
1884A 
18958 
1904+ 
L9O13A 
19248 
1933 
1934 
1935+ 
1962A 
1963 
1964 
1965 
1966 
1967 
1S6Brt 
1977A 
1997 
1998 
1999+ 
20084 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 


3$ 


st ott 


see 


6-May-83 14:50:55 Page 2-9 

TST CNFLI check for 7%36q 

BNE PRENB if 736s hold means enable 

RTS 

enable switch pressed -- leave hold state 

TST STATE 

L8BNE PRIMSW 

JSR STAC HK check for ftegal 

BNE 45 

CALL CTIMER »<HOLDTO>D clear hold timeout timer 
EXTERN CTIMER ; 

JSR CTIMER (GO TO CTIMER) 

FOB HOLDTO 

CALL CTIMER»s<FLASH> flasher ts now superfluous 
JSR CTIMER (GC TO CTIMER) 

FDB8 FLASH 

LDB8 #FALSE.e 

PSHS cc timer interrupt not allowed here 
IOF <I> 

ORCC #eMSK turn I interrupts off 

STB HLDREQ 

STB HLDFLG 

PULS CC restore existing interrupt masks 
STB FLTFLG 

LDA #HLDCOD hold tamp off 

CALL LEDSET 

JSR LEDSET (GO TO LEDSET) 

LDB HTRUE. ready lamp on 

LDA #R CDYCOD 

CALL LEDSET 

JSR LEDSET (GO TO LEDSET) 

STB ~ LMPRO disable (further) margin setting 
see if intervention required needs cleared 

LDA PSTATS 

ANDA HIRBIT 

BEQ 2% cCranch if no 

LDA #1 disable code 

LDXx FCIRVEC 

Swi 

TSTB 

BNE 35 if failed» retry 

LDA HFALSE. clear HTOFLG 

STA HTOFLG 


if switch status change needs to be reported 


HOLDPRINT 

HOLDPRINT*SRC 
034C?* Bo 
034F°* B8 
0352° 84 
0354" at 
0356° B6 
0359° B4 
0358" BY 
O3S5E° 85 
0360* B7 
0363! TF 
0366" BE 
0369' 3F 
D36A*" 5D 
N36B! 26 
036D°" 39 
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0000" 
O007* 
07 
17 


S000" 
07 
OOOF* 


91 

ocoD’ 
QO0E* 
000D* 


Fl 


O36E* 90098 


2045 
2046 
2047 
2048 
2649 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2058 
2059 
2060 
2061 
2062 
2063 
2064 
2065 
2066 
2067 


se 


6-May-&3 


LDA 
EQORA 
ANDA 
BEQ 


LDA 
ANDA 
STA 


LDA 
STA 
CLR 
LDX 
Swi 
TSTB 
BNE 


14250355 


SWVEC+1 
SWSAV 
#7 

4$ 


SWVEC+1 
#7 
SWCON+2 


#1 
SWCON 
SWCON+1 
#SWCON 


21% 
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the way it should te 

the way it was | 

bits currently supported 
branch if no changes 


update control vector 


"Switch transition" bit & disable code 
address of control vector to X 


loop if failed Calready disabled) 


clear IR control 
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HOLDPRINT — 
HOLDPRINT*SRC 
0370" 10BE ONOA® 
0374" BE O3AB" 
0377" 8D 002B% 
O37A*" AT AD 
O37C* 4F 
O37D" BD 002B% 
0380" AT AO | 
03682" ET A4 
0384" 86 22 
0386" BD 0018% 
0389" E6 A2 
O38B" 4A 
038C"' BD 0018% 
O38F* E6 A2 
G391" 4A 
0392" BD 0018* 
0395" 39 
0396" F6 O00C* 
0399" 86 OA 
0393" 3D 
039C* FB 000B" 
O039F* 86 OA 
O3A1" 3D 
QO3A2" ED £3 
O3A4" F6 OOOA' 
O3AT" 4F 
O38" §3 El 
O3SAA" 39 
O3AB" OA 


2069 
2079 
2071 
2072 
2073 
2074 
2075 
2076+ 


Z2ZOB1A - 


2085A 
2105 
2106 
2107+ 
2115A 
2136 
2137 
2138 
2139 
2140+ 
Z2149A 
2169 
2170 
2171+ 
Z21380A 
2200 
2201 
2202+ 
2211A 
2231 
2232 
2233 
2234 
2235 
2236 
2237 
2238 
2239 
2240 
224) 
2242 
22%3 
2244 
2245 
2246 
2247 
2248 
2249 


SETDIS 


Gy $6 4% db 


9ETNUM 


66-May-3833 


ats ate Fe ale ale ale whe «' 
a? ge > 2y* a el Sgt Mg Myr Mg 


routine 


LDY #TEMP address at which to store 8CD 
LDX #TEN address of divisor (10) 

CALL DIVIDE (D700X)) 

EXTERN DIVIDE 

JSR DIVIDE (GO TO DIVIDE) 

STA 9Y¥+ store remainder as first digit 
CLRA clear high order and divide again 
CALL DIVIDE 

JSR DIVIDE (GO TO DIVIDE) 

STA 9 ¥+ tents digit 

STB s Y hundred’s 

LDA #DISP1+2 display address for hundred'’s 
CALL LEDSET | 

JSR LEDSET (GO TC LEDSET) 

LDB 9—-Y ten'’s 

DECA 

CALL LEDSET 

JSR LEDSET (GO TO LEDSET) 

LDB ey unit’s 

DECA 

CALL LEDSET 

JSR LEDSET (GO TC LEDSET) 

RTS return with BCD in TEMP and displayed 
convert BCD in TEMP to binary tn DO 

LOB TEMP+2 nhundred*’s digit 

LDA #10 

MUL compute "hundred’s * 10" 

ADDB TEMP +41 compute "hundred*s * 10 + ten'’s" 
LDA #10 

MUL compute "hundred*s * 100 + ten’s * 10" 
STD 9-5 save above 

LDB TEMP unit's 

CLRA extend 

ADDD 9St+ add back above 

RTS 

FCB 10 constant ten 


3 ss s 
14250255 Page 3 
whe whe alle ale ale whe whe ate ale de Be ale <te abe ate ale ate ale ate ake als wis als We oly ai, wile whe whe ade ale ale ales ale ale ale abe ale ate whe wFe whe «Se ale aby whe ale abe <¥e ate ale <fs ale aly ale aly alle ale als ale allo 


converts D for display in 7-segment display and for update 
in TEMPeeselTEMP+2 


HOLDPRINT 
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HOLDPRINT* SRC 


O3AC* 
O3AF* 
03B1° 
0O384* 
0387'° 
03898 


03BB°" 
O3BE* 
03C 1" 
03C4°* 
O3CT® 


03C9° 


O3CC*® 
O3CF* 
03Di' 
03D3° 


0304" 


O3D7° 


03D9° 
o3DB8° 
O3DE° 


O3DF* 
0352" 
O3E4! 

O3E6" 


BD O3E7* 
27 03 
BB 0004* 
BY O004° 
1F 89 
B86 04 


BD 901 8* 
F6 9003° 
FB 9008°* 
Ff 90003° 
86 O05 


BD 9018* 


BD OOLA* 
O3AC* 
ocgc® 

39 


73 9006" 
27 96 


BOS FF 
BY O0005' 
39 


BD 001A 
0304" 
O00F* 

39 


2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262+ 
2271A 
2291 
2292 
2293 
2294 
2295+ 
2304A 
2324+ 
2333A 
2344B 
23498 
2358 
2359 
2350 
2361 
2362 
2363 
2364 
2365. 
2356 
2367 
2368 
2369 
2379 
2371 
2372 
2373 
2374 
2375+ 
2384A 


623958 


24008 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 


é é AT 2 vA RY 3 
$¢063% «6S Se OSE 


HOLDTO 


ale 
“e 


ate 
wee 


1$ 
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"flash" 


JSR 
BEQ 
EORA 
STA 
TER 
LDA 
CALL 
JSR 
LDB 
EORB 
STB 
LDA 
CALL 
JSR 
CALL 
JSR 
FDB 
FDB 
RTS 


timeout 


COM 
BEQ 


FIRST became true again 


LDA 
STA 
RTS 


farst t/o == 


CALL 
JSR 
FOB 
FDB 
RTS 


TMODEI 


14250:55 


interrupt 


TMODE1 
16 
RDYLMP 
RDYULMP 
AeB 

#R CYCOD 
LEDSET 
LEDSET 
HLDLMP 
SSFLG 
HLCLMP 
#HLDCOD 
LEDSET 
LEDSET 


STIMERs <FLASH,FLSHTM> 


STIMER 
FLASH 
FLSHTM 


interrupt -- 


FIRST 
1$ 


#TRUEs 
HTOFLG 


fo ate als als ale ate ate ale ate Be ate ale ale ale ale whe whe ale alle ale ale whe of 
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< 


. lp whe whe Be ade alle ube ally ato ay ale alle aly whe «) 
"a" - “s iat link plat Delle bilied elit elit ndlied balled tolled lied Blin elit belli ble niet lied adiet line’ plied plied bie lied tliat | 


Check for mode=Lul1 

if not mode LUl+s set RDY lamp OFF 

exor A (true) with RDYLMP to compiement it 
store result 

state code to B for LEDSET 

lamp code ro A 


(GO TO LEOSET) 
compute state of HOLD lamp 


store it 
and toad it 
(GC TO LEDSET) 


retrigcer timer 
(GO TO STIMER) 


done 


five/ten minutes hold print 


which Smin t/o is this 


-- 10min t/o elapsed 
set HTOFLG 


return to clock processor 


5 min elapsede reset for another 5 


STIMER »<HOLDTOsHLDTIM> 


STIMER 
HOLDTO 
HLDOTIM 


(GO TO STIMER) 


te ale ate ale abe ale ale ate alle als who alle abe «fe ale ale whe ate ale wie ~! lp ate nlp ale «Se ate ate ate ate ule alle ale abe ate ale alte afe ate alle ate ate alle ale ale ate ale 
gh gh Ge Ogh gh Sg Gh OGe BAR gh OG OX gh O40 OG® OBe He OA OS OF? Og 2 2 ye Le yy Mg Hg yh yh Oye GS OG Oe OG ON Oye GR aye YN ON TR Oe OE ayn Ge 
we ats ate aty ale aly ale ale alle ate whe aly alle wty ate ule aby ate ale ule ate ale lp ate whi andy Be a! Ne ade ale ate whe aWe ate ads wile aby alle ale whe ats ale ale ade ate 
Sgr Mg OD SGP Me Hyh Hge AM gh Sgr ym Oyd H4g® Myr Ha™ Sgr Myr yr gr Fah wgs Mgt Or Mgt Ge Pgh Mgt Mgh Myr SGX MK yh Sgr Hyh Sgr Sgr Sgr Ayr Sgr Sym Ar Mg Ge OE Oye OE Oy 


-- a routine to test for MODE = LUI 


HOLOPRINT 


HOLDPRINT.»SRC 
OBET* 86 
O3E9" FE 
O3—EC*" C4 
OBSEE* Cl 
C3FO" 27 
O3F2° 43 
O3F3" 4D 
O3F4* 39 
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FF 
D000" 
07 
06 
O1 


2417 
2418 
2419 


2420 


2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 


& 
é 


% iv) he 
‘s st 3c «64 


ste 
~* 


alu 
a oo 


TMODEL 
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routine tests PMODE bits 5697 for value 6% indicating LU1 mode 


return 


is 


in A»sCCe 


is true for LUls false for othere CC is set 


by a TSTA before the returne 


B is also modified 


LDA 
LDB 
ANDB 
CMP B 
BEQ 
COMA 
TSTA 
RTS 


END 


#TRUEe 


preset A 

get mode byte w/ required info 
bits 59697 

8=6? 

branch to exit if equal 

set A false if not equal 

set CC for user branch 


HOLDPRINT 
HOLDPRINT.* SRC 
ALARM 0019 EX 
CANFLG 0001" IN 
CIRVEC O36E° 
DEVCR 0021 EX 
DEVMPL 0006 EX 
DIGIT 0230 
FIRST 0006* 
FRMFD 00B5* 
HLODREQ OOOE EX 
INDEX OOA5* 
ION Macro 
LPISW 0298" 
NVMREL 0026 EX 
PORDER 0015 EX 
PSTATS 0013 EX 
RESET 0233' 
SECSW 02D8" 
SETUP O14F°* 
STIMER QO1LA EX 
SWCASE QO267* 
SWVEC 0011 EX 
TICK 9006 
TSTCOD 0009 
»RAMB » 2000 


No errors detected 


BSYFLG 
CANREQ 
CNFL1 
DEVFF 
DEVMPP 
DISP1 
FLASH 
GETNUM 
HLDTIM 
IN] 
IRBIT 
MAXMPL 
NVMWR 
PRENB 
PSWSTA 
ROMMPL 
SETCAS 
SPCING 
STMPL 
SWCON 
TEMP 
TICKM 
T1CeL 
eK AME. 
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0002 EX 
O001°IN 
0003 EX 


OO1D EX 


QO007 EX 
0020 
O3AC* 
0396° 
OOOF EX 
0263' 
0008 
0008 EX 
0025 EX 
0301'° 
0014 EX 
OOOA EX 
0028 EX 
0281'° 
CICF* 
ocop* 
OODA* 
2716 
B004 
27°F 
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BUSY 
CASCOD 
CONFIG 
DEVFW 
DEVPUT 
DIVIDE 
FLSHTM 
HLDCOD 
HOLD 
IN10 
LEDSET 
MAXMPP 
PA 
PRHLD 
RDYCOD 
ROMMPP 
SETDOFL 
SSFLG 
STMPP 
SWFLAG 
TEN 
TMOOEL 
VIA 
eROMBe 
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0001 EX 
0006 
0181° 
0005 EX 
0022 EX 
0028 EX 
oog9c* 
0005 
OOOO" IN 
O25E* 
O018 EX 
0009 EX 
00c5* 
O2EF* 
0004 
QOOOB EX 
CO27 EX 
0008? 
O201°* 
0010 EX 
O3AB* 
OBE7° IN 
8000 
C9000 
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CALL 
CCF 
COPSW 
DEVHP 
DEVSTA 
DSPCOC 
FLTFLG 
HLDFLG 
HOLOTC 
IN100 
LMPRO 
NULL 
PASWIT 
PRIMSW 
RDYLMP 
RPTFLG 
SETDFW 
STACHK 
SUBUF 
SWMODE 
TEST 
TRAVEC 
2 IOXAR 
eROME . 


Macro 
Macro 


N024 EX 
0004 EX 
Q901B EX 
0007 
OCOD EX 
O000* IN 
03D4' 
923B° 
0010° 
OCA4* 
OO1LE EX 
O285* 
O0004° 
J002" IN 
QOO1LF EX 
OO9E* 
QL7F* 
0029 EX 
0020 EX 
OO5C* 


Macro 


FFFF 


CANCEL 
CHNFLG 
CTIMER 
DEVLF 
DIAGN 
FALSE. 
FLTREQ 
HLDLMP 
HTOFLG 
TOF 
LPICOD 
NVMRO 
PMODE 
PRTCRD 
REPR 
RPTREQ 
SETDIS 
STATE 
SWBYT3 
SWSAV 
TESTSW 
TRUE. 
oMSK 


OOF5* 
OO17 €xX 
CO2A EX 
OO1C EX 
9195° 
0000 
QOOC EX 
0003° 
OO05° IN 


Macro 


0008 
0023 EX 
0016 EX 
0003 
0005° 
0002*° IN 
QO370°* 
co0c9g* 


